home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00109_Gender.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.2 KB  |  56 lines
  1. property pGender, pSpr, pRollMember, pOrigMember, pSelectedMem, pSelectedSprite
  2. global gPlayerGender
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   pOrigMember = pSpr.member
  7.   pRollMember = nextMember(pOrigMember)
  8.   pSelectedMem = nextMember(pOrigMember, 2)
  9.   if pGender = #male then
  10.     pSelectedSprite = sprite(me.spriteNum + 2)
  11.   else
  12.     pSelectedSprite = sprite(me.spriteNum + 1)
  13.   end if
  14.   if gPlayerGender = pGender then
  15.     pSpr.member = pRollMember
  16.   end if
  17.   setCursor(pSpr, pointingHand())
  18. end
  19.  
  20. on endSprite
  21.   setCursor(pSpr, defaultCursor())
  22. end
  23.  
  24. on mouseDown me
  25.   clickSound()
  26. end
  27.  
  28. on mouseUp me
  29.   gPlayerGender = pGender
  30.   pSpr.member = pRollMember
  31.   if pGender = #female then
  32.     sendSprite(me.spriteNum - 1, #mClearEntry)
  33.   else
  34.     sendSprite(me.spriteNum + 1, #mClearEntry)
  35.   end if
  36.   sendSprite(pSelectedSprite, #mSetEntry, pSelectedMem, pSpr.loc)
  37. end
  38.  
  39. on mouseEnter me
  40.   pSpr.member = pRollMember
  41. end
  42.  
  43. on mouseLeave me
  44.   mClearEntry(me)
  45. end
  46.  
  47. on mClearEntry me
  48.   if gPlayerGender <> pGender then
  49.     pSpr.member = pOrigMember
  50.   end if
  51. end
  52.  
  53. on getPropertyDescriptionList me
  54.   return [#pGender: [#format: #symbol, #comment: "Gender?", #range: [#male, #female], #default: #male]]
  55. end
  56.